home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1997 April: Mac OS SDK / Dev.CD Apr 97 SDK1.toast / Development Kits (Disc 1) / Interfaces&Libraries / Interfaces / PInterfaces / ObjIntf.p < prev    next >
Encoding:
Text File  |  1993-11-30  |  1.1 KB  |  50 lines  |  [TEXT/MPS ]
  1. {
  2.     File:        ObjIntf.p
  3.  
  4.     Copyright:    © 1983-1993 by Apple Computer, Inc.
  5.                 All rights reserved.
  6.  
  7.     Version:    System 7.1 for ETO #11
  8.     Created:    Tuesday, March 30, 1993 18:00
  9.  
  10. }
  11.  
  12. {$IFC UNDEFINED UsingIncludes}
  13. {$SETC UsingIncludes := 0}
  14. {$ENDC}
  15.  
  16. {$IFC NOT UsingIncludes}
  17.  UNIT ObjIntf;
  18.  INTERFACE
  19. {$ENDC}
  20.  
  21. {$IFC UNDEFINED UsingObjIntf}
  22. {$SETC UsingObjIntf := 1}
  23.  
  24.  
  25. TYPE
  26.     TObject = OBJECT
  27.         FUNCTION  ShallowClone: TObject;
  28.             {Lowest level method for copying an object; should not be overridden
  29.                 except in very unusual cases.  Simply calls HandToHand to copy
  30.                 the object data.}
  31.         FUNCTION  Clone: TObject;
  32.             {Defaults to calling ShallowClone; can be overridden to copy objects
  33.                 refered to by fields.}
  34.         PROCEDURE ShallowFree;
  35.             {Lowest level method for freeing an object; should not be overridden
  36.                 except in very unusual cases.  Simply calls DisposHandle to
  37.                 free the object data.}
  38.         PROCEDURE Free;
  39.             {Defaults to calling ShallowFree; can be overridden to free objects 
  40.                 refered to by fields.}
  41.         END;
  42.  
  43.  
  44. {$ENDC} { UsingObjIntf }
  45.  
  46. {$IFC NOT UsingIncludes}
  47.  END.
  48. {$ENDC}
  49.  
  50.